(deftemplate persoana
    (slot nume)
    (slot sex)
    (slot parinte)
    (slot partener)
    )
(assert (persoana(nume Ion_Popescu)(sex M)(parinte null)(partener Maria_Popescu)))
(assert (persoana(nume Maria_Popescu)(sex F)(parinte null)(partener Ion_Popescu)))
(assert (persoana(nume Elena_Popescu)(sex F)(parinte null)(partener Criastian_Popescu)))
(assert (persoana(nume Cristian)(sex M)(parinte Maria_Popescu)(partener Maria_Popescu)))
(assert (persoana(nume Cristina)(sex F)(parinte null)(partener Adrian)))
(assert (persoana(nume Adrian)(sex M)(parinte Maria_Popescu)(partener Cristina)))
(assert (persoana(nume Tudor_Popescu)(sex M)(parinte Cristina)(partener null)))

(assert (persoana(nume Adriana)(sex F)(parinte null)(partener Ciprian)))
(assert (persoana(nume Ciprian)(sex M)(parinte Maria_Popescu)(partener Adriana)))
(assert (persoana(nume Maria_Andreescu)(sex F)(parinte Maria_Popescu)(partener Petre_Andreescu)))

(assert (persoana(nume Petre_Andreescu)(sex M)(parinte null)(partener Maria_Andreescu)))
(assert (persoana(nume Ionel_Andreescu)(sex M)(parinte Maria_Andreescu)(partener null)))


(facts)
(run)